home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dbapg.arc / JULIAN.PRG < prev    next >
Encoding:
Text File  |  1984-08-09  |  2.3 KB  |  65 lines
  1. * Program..: JULIAN.PRG
  2. * Author...: Merrill Anderson
  3. * Date.....: January, 1984
  4. * Notice...: Copyright 1983, 1984 by Merrill Anderson.  All rights reserved.
  5. * dBASE....: II, version 2.4x
  6. * Notes....: Converts a Gregorian Calendar date to a Julian Period day.
  7. * 
  8. * Thi≤ algorithφ i≤ onl∙ accuratσ froφ 1/1/000░ t∩ 12/31/399╣ duσ 
  9. * t∩ ß probleφ witΦ negativσ numbers«  Thi≤ commanΣ filσ i≤ ß 
  10. * subroutinσ t∩ perforφ thσ calculatioε only«  I⌠ expect≤ t∩ bσ 
  11. * passeΣ ß datσ whosσ forma⌠ anΣ conten⌠ havσ alread∙ beeε verifieΣ 
  12. * b∙ thσ callinτ file.
  13. * 
  14. * Parameters passed:
  15. *  Name      typ len  picture - description 
  16. * ---------- --- ---  --------------------------------------
  17. *  Input to program:
  18. *  mdate       C    8  mm/dd/yyyy - Gregorian calendar date.
  19. *
  20. * Internal to program (optional output):
  21. *  mm          N    2  Month of input date.
  22. *  dd          N    2  Day of input date.
  23. *  yr          N    4  Four digit year of input date.
  24. *
  25. * Output:
  26. ¬  da∙         ├    │  Da∙ oµ weeδ - threσ character abbr.
  27. *  jd          N    7  Julian period day - total days 
  28. *                          (good from 0 to 3999 AD +\- ?).
  29. *  mon         C    3  Month of year - three character abbr.
  30. *  month       C    9  Month of year - full spelling.
  31. *  weekday     C    9  Day of week - full spelling.
  32. *
  33. * If not done in a previous program...
  34. SET TALK OFF
  35. *
  36. * Initialize local memvars...
  37. STORE VAL($(mdate,1,2)) TO mm
  38. STORE VAL($(mdate,4,2)) TO dd
  39. STORE VAL($(mdate,7,4)) TO yr
  40. STORE 1721060 TO base
  41. *
  42. * Calculate Julian Period Day...
  43. STORE base + yr*365 + INT(yr/4) - INT(yr/100) + INT(yr/400) +;
  44.   VAL($("000031059090120151181212243273304334",mm*3-2,3)) +;
  45.   dd - VAL($('110000000000',mm,1)) *;
  46.   VAL($('10',1+INT(((yr/4)-INT(yr/4))+.75) *;
  47.   INT(((yr/400)-INT(yr/400))+.9975),1)) to jd
  48. *
  49. * Calculate name of weekday...
  50. STORE $( "Monday   Tuesday  Wednesday" +;
  51.   "Thursday Friday   Saturday Sunday   " ,;
  52.   (INT(INT((((jd/7.00)-INT(jd/7))*7)+.5))*9+1),9) TO weekday
  53. STORE $(weekday,1,3) TO day
  54. *
  55. * Calculate name of month...
  56. STORE $( "January  Febuary  March    April    May      " +;
  57.   "June     July     August   SeptemberOctober  November " +;
  58.   "December" ,mm*9-8,9) TO month
  59. STORE $(month,1,3) TO mon
  60. *
  61. * Release local memvars and return to calling program...
  62. RELEASE mm, dd, yy
  63. RETURN
  64. * EOF: Julian.prg
  65.